home *** CD-ROM | disk | FTP | other *** search
/ Windows 6-Pak - Disc 4 / Windows 6-Pak (InfoMagic) (Disc 4) (1999).ISO / 3D-Graphics-Editors / lsystem3.exe / L System 3 / _setup.1 / CRYSTAL.LS < prev    next >
Text File  |  1998-05-11  |  904b  |  27 lines
  1. #╔═════════════════╤═══════════════════════════════╗
  2. #║   Crystal.ls    │    (c) C.J. van der Mark      ║  
  3. #╟─────────────────┴───────────────────────────────╢
  4. #║      Questions about Lparser files to:          ║
  5. #║        Internet  cvdmark@xs4all.nl              ║
  6. #║           Fido      2:283/203.11                ║
  7. #║           PCG       9:526/464.3                 ║
  8. #╚═════════════════════════════════════════════════╝
  9. 15
  10. 20
  11. 20
  12. H
  13. I=+(40)ffHI
  14. H=[+fffG][-fffG][^fffG][&fffG]G
  15. G=[AFFh]e[A]e[A]e[A]e[A]e[A]e[A]e[A] 
  16. e=+(90)f-(90)>(-45)                 
  17. C={[F+(90)F+(90)F+(90)F>(+38)-(105)FF-(151)FF][f&(38)+(15)FF+(151)FF]} 
  18. s={ij[+ZZtZtZtZG[H]]<(90)ij[-ZZtZtZtZG]}
  19. A={[d]} 
  20. d={[f+(90)f+(90)f+(90)f>(+38)-(105)ff-(151)ff][f&(38)+(15)ff+(151)ff]}
  21. i=Z+(5)i
  22. j=Z-(5)j
  23. k=Z{[+++l.][++ll.][+lll.][llll.][-lll.][--ll.][---l.]}
  24. h=c(4)ZZZt(3.2)$[++[++ZZk]ZZk][--[--ZZk]ZZk]ZZk
  25. l=t!g
  26. @
  27.